(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     21813,        591]
NotebookOptionsPosition[     19441,        547]
NotebookOutlinePosition[     19797,        563]
CellTagsIndexPosition[     19754,        560]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellLabel->
  "In[2181]:=",ExpressionUUID->"b52c1a2a-406c-4f9c-894f-d061c63d6161"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellLabel->
  "In[2182]:=",ExpressionUUID->"aad787b7-4575-456e-9151-3b8b6654b5aa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tempfile13", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<vertice.wdx\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile14", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<Deficient.wdx\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile15", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<vinitial.wl\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile16", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<Lorentzian.wdx\>\""}], "}"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile17", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<vmax.wl\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile18", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<Boundary.wdx\>\""}], "}"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.826569031078891*^9, 3.826569031443293*^9}, {
  3.8265897379330235`*^9, 3.8265897500370812`*^9}, {3.830087011023511*^9, 
  3.8300870114729443`*^9}},
 CellLabel->
  "In[2183]:=",ExpressionUUID->"6ce1b6a6-c616-4132-ae68-2b99708013ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Get", "[", "#", "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "tempfile13", ",", "tempfile14", ",", "tempfile15", ",", "tempfile16", 
     ",", "tempfile17"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.826569038597726*^9, 3.8265690657416754`*^9}, {
  3.8265716884861097`*^9, 3.826571709780407*^9}, {3.83008702575879*^9, 
  3.8300870306366415`*^9}},
 CellLabel->
  "In[2189]:=",ExpressionUUID->"ca46cba0-37e8-446d-91c0-259f22409116"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Null", ",", "Null", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10.570366003947878`", ",", "29.644435923791924`"}], "}"}]}], 
    "}"}], ",", "Null", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.826569069980646*^9, {3.8265717105412083`*^9, 3.8265717253610044`*^9}, 
   3.8265721814535513`*^9, 3.82657608304421*^9, 3.8265765050540133`*^9, {
   3.826576548681171*^9, 3.8265766180964117`*^9}, 3.826577512260997*^9, 
   3.826582579965905*^9, 3.826582950167428*^9, {3.8300869222759686`*^9, 
   3.8300869470171347`*^9}, {3.8300870311326494`*^9, 3.8300870503118095`*^9}},
 CellLabel->
  "Out[2189]=",ExpressionUUID->"aad560b8-e626-436d-8894-2ffbee26a614"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"NNTable", "[", 
   RowBox[{"vid_", ",", "Sid_", ",", "VR_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"NN", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
        "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"NN", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"FDNormal", "[", 
           RowBox[{"vid", ",", 
            RowBox[{"VR", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", 
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"Sid", "/.", 
          RowBox[{
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "\[Rule]", "Nothing"}]}]}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", 
         RowBox[{"Length", "[", "Sid", "]"}]}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellLabel->
  "In[2190]:=",ExpressionUUID->"bae49709-8c2d-43e4-924f-d9d9af9247dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"OrientationSelect", "[", "VR_", "]"}], ":=", 
  RowBox[{"Block", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"kk", ",", "kp"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"kk", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"NNTable", "[", 
          RowBox[{"vid", ",", "Sid", ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", "VR"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"kp", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "]"}], "&&", 
          "\[IndentingNewLine]", 
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "]"}], "&&", 
          "\[IndentingNewLine]", 
          RowBox[{"(", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], "*", 
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "2", ",", "1"}], "]"}], "]"}]}], "<", "0"}],
             "||", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], "*", 
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "2", ",", "1"}], "]"}], "]"}]}], "<", 
             "0"}]}], "\[IndentingNewLine]", ")"}]}], "&"}], ",", "kk"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"VR", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "1"}], "]"}], "]"}], "&&", 
            RowBox[{"kp", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], ",", 
           RowBox[{"VR", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", 
           RowBox[{"Length", "[", "VR", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "True"}], "&"}]}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.8265759719115124`*^9, 3.826576015767462*^9}, {
  3.8265766522058992`*^9, 3.8265767192222652`*^9}, {3.826576788070956*^9, 
  3.82657681097196*^9}, {3.8265768565488024`*^9, 3.8265768965480385`*^9}},
 CellLabel->
  "In[2191]:=",ExpressionUUID->"e393c11e-b12a-4e2a-868a-e73888241665"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FF", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"VR", ",", "as"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"VR", "=", 
      RowBox[{"Quiet", "[", 
       RowBox[{"Vertices", "[", 
        RowBox[{"vid", ",", "Sid", ",", "Vertex", ",", 
         RowBox[{"Sqrt", "[", "x", "]"}], ",", 
         RowBox[{"Sqrt", "[", "y", "]"}], ",", 
         RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"as", "=", 
      RowBox[{"OrientationSelect", "[", "VR", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Deficient", "[", 
         RowBox[{"vid", ",", "Sid", ",", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", "as"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.826577681941304*^9, 3.826577768970934*^9}, {
  3.8265778081265526`*^9, 3.826577848453462*^9}, {3.8265814273339767`*^9, 
  3.82658143192824*^9}},
 CellLabel->
  "In[2192]:=",ExpressionUUID->"6381e3aa-29d3-44dc-99ff-6b1e9b017bd6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "0.1"}], ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8265821624947295`*^9, 3.8265821651646147`*^9}, {
   3.826582832190978*^9, 3.826582837138853*^9}, 3.830086944919032*^9},
 CellLabel->
  "In[2193]:=",ExpressionUUID->"fbf21c9d-ad61-402c-9aca-539ca1eb0be1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CC1", "=", "ccr"}]], "Input",
 CellChangeTimes->{{3.83008695730053*^9, 3.8300869576548595`*^9}, {
  3.8300870464567456`*^9, 3.8300870483943386`*^9}},
 CellLabel->
  "In[2194]:=",ExpressionUUID->"f7813473-2814-4416-984a-9125143b9583"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "8.781520334149318`", ",", "28.795811804752404`", ",", 
   "12.914052822249799`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8300869584231653`*^9, {3.830087033180971*^9, 3.830087050447579*^9}},
 CellLabel->
  "Out[2194]=",ExpressionUUID->"6dd5d31a-2a83-45f3-a9b6-2c38cf5e7f1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<", "10000"}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"CC", "=", "CC1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"SS", "=", 
      RowBox[{"FF", "[", 
       RowBox[{
        RowBox[{"CC", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"CC", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"CC", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"pp", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{
         RowBox[{"Abs", "[", "SS", "]"}], ",", 
         RowBox[{"Max", "[", 
          RowBox[{"Abs", "[", "SS", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"S", "=", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"UniformDistribution", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "n"}], ",", "n"}], "}"}]}], "}"}], "]"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"CC", "+=", "S"}], ";", "\[IndentingNewLine]", 
     RowBox[{"S1", "=", 
      RowBox[{"FF", "[", 
       RowBox[{
        RowBox[{"CC", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"CC", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"CC", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "S1", "]"}], "\[NotEqual]", " ", "0"}], ",", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"pp2", "=", 
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{
             RowBox[{"Abs", "[", "S1", "]"}], ",", 
             RowBox[{"Max", "[", 
              RowBox[{"Abs", "[", "S1", "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"JK", "=", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{"UniformDistribution", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"JP", "=", 
          RowBox[{"Min", "[", 
           RowBox[{"1", ",", 
            RowBox[{"Exp", "[", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Abs", "[", 
                RowBox[{"S1", "[", 
                 RowBox[{"[", "pp2", "]"}], "]"}], "]"}]}], "+", 
              RowBox[{"Abs", "[", 
               RowBox[{"SS", "[", 
                RowBox[{"[", "pp", "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"CC1", "+=", 
          RowBox[{
           RowBox[{"HeavisideTheta", "[", 
            RowBox[{"JP", "-", "JK"}], "]"}], "*", "S"}]}], ";"}], 
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"psp", "=", 
      RowBox[{"FF", "[", 
       RowBox[{
        RowBox[{"CC1", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"CC1", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"CC1", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Max", "[", 
         RowBox[{"Abs", "[", "psp", "]"}], "]"}], "<", 
        RowBox[{"Max", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{"FF", "[", 
           RowBox[{
            RowBox[{"ccr", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"ccr", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"ccr", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"ccr", "=", "CC1"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.8265779566648083`*^9, 3.826578051017311*^9}, {
   3.826578090617263*^9, 3.8265781195569215`*^9}, {3.8265781513572493`*^9, 
   3.8265781706824236`*^9}, {3.8265816559024525`*^9, 3.826581690584032*^9}, 
   3.8265817255244255`*^9, {3.826582059896059*^9, 3.8265821104972467`*^9}, {
   3.826582213659196*^9, 3.826582244972853*^9}, {3.826582286507511*^9, 
   3.8265823612002735`*^9}, {3.8265825558712854`*^9, 3.82658256769238*^9}, {
   3.826582609125159*^9, 3.8265826264407034`*^9}, {3.8265826939956846`*^9, 
   3.826582713064039*^9}, {3.8265827945552177`*^9, 3.8265828094422626`*^9}, {
   3.8265828397930417`*^9, 3.826582925480856*^9}, {3.8265907977891107`*^9, 
   3.826590812828991*^9}, {3.8300871797176323`*^9, 3.830087188362687*^9}},
 CellLabel->
  "In[2199]:=",ExpressionUUID->"f5f0cc6f-8133-4f9f-b7fd-3acb7de895df"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.8265827915242553`*^9, 3.8265829466979103`*^9, 3.826586282047886*^9, 
   3.826587954404913*^9, 3.8265908211721306`*^9, 3.826614449308956*^9, {
   3.8300869248475647`*^9, 3.8300869546962004`*^9}, 3.83008703697579*^9, 
   3.830087100966299*^9, 3.8300871943458986`*^9},
 CellLabel->
  "Out[2197]=",ExpressionUUID->"e2000f36-82b7-46c2-b101-5c92f67029a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FF", "[", 
  RowBox[{
   RowBox[{"ccr", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", 
   RowBox[{"ccr", "[", 
    RowBox[{"[", "2", "]"}], "]"}], ",", 
   RowBox[{"ccr", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8265862913049283`*^9, 3.8265863003179207`*^9}, {
  3.8300869337774878`*^9, 3.8300869346620045`*^9}},
 CellLabel->
  "In[2150]:=",ExpressionUUID->"4368e20a-0d0a-4bc7-af54-abaf0f8e41f6"],

Cell[BoxData[
 TemplateBox[{
  "Part","partd",
   "\"Part specification \\!\\(\\*RowBox[{\\\"CC1\\\", \\\"\
\[LeftDoubleBracket]\\\", \\\"1\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
longer than depth of object.\"",2,2150,95,21166597546140051949,"New Kernel"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.830086935346015*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[2150]:=",ExpressionUUID->"6c042f6b-3547-4736-\
b703-614d765db28e"],

Cell[BoxData[
 TemplateBox[{
  "Part","partd",
   "\"Part specification \\!\\(\\*RowBox[{\\\"CC1\\\", \\\"\
\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
longer than depth of object.\"",2,2150,96,21166597546140051949,"New Kernel"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.830086935361018*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[2150]:=",ExpressionUUID->"b8a1bd7d-f497-4000-\
97bd-40bea3a94bc4"],

Cell[BoxData[
 TemplateBox[{
  "Part","partd",
   "\"Part specification \\!\\(\\*RowBox[{\\\"CC1\\\", \\\"\
\[LeftDoubleBracket]\\\", \\\"3\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
longer than depth of object.\"",2,2150,97,21166597546140051949,"New Kernel"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8300869353670197`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[2150]:=",ExpressionUUID->"b9041ef4-9609-4afa-\
a41e-4711af20d7e8"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Part\\\", \\\"::\\\", \
\\\"partd\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,2150,98,21166597546140051949,"New Kernel"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.830086935375022*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[2150]:=",ExpressionUUID->"b806d9c2-a024-418f-\
b514-c41e124d7df9"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{
  3.8265879613173256`*^9, 3.82661446515049*^9, {3.827111379996417*^9, 
   3.827111405638054*^9}, 3.830086937461505*^9},
 CellLabel->
  "Out[2150]=",ExpressionUUID->"36e0f2d2-6570-49c8-a60a-e78ac6d32ab6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dynamic", "[", 
  RowBox[{"Abs", "[", "psp", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.83008719642874*^9, 3.830087200294571*^9}},
 CellLabel->
  "In[2198]:=",ExpressionUUID->"7c4afbf9-a8b0-43d7-8901-fdb7de805144"],

Cell[BoxData[
 DynamicBox[ToBoxes[
   Abs[$CellContext`psp], StandardForm],
  ImageSizeCache->{65., {3., 9.}}]], "Output",
 CellChangeTimes->{3.8300871170502186`*^9, 3.8300872006881523`*^9},
 CellLabel->
  "Out[2198]=",ExpressionUUID->"f7fb47fd-0de2-4959-b4f1-c47d793ff125"]
}, Open  ]]
},
WindowSize->{958, 981},
WindowMargins->{{Automatic, 97}, {Automatic, 108}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (2019\:5e744\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 157, 3, 28, "Input",ExpressionUUID->"b52c1a2a-406c-4f9c-894f-d061c63d6161"],
Cell[718, 25, 207, 5, 28, "Input",ExpressionUUID->"aad787b7-4575-456e-9151-3b8b6654b5aa"],
Cell[928, 32, 1613, 47, 124, "Input",ExpressionUUID->"6ce1b6a6-c616-4132-ae68-2b99708013ad"],
Cell[CellGroupData[{
Cell[2566, 83, 518, 13, 28, "Input",ExpressionUUID->"ca46cba0-37e8-446d-91c0-259f22409116"],
Cell[3087, 98, 791, 17, 32, "Output",ExpressionUUID->"aad560b8-e626-436d-8894-2ffbee26a614"]
}, Open  ]],
Cell[3893, 118, 1242, 36, 67, "Input",ExpressionUUID->"bae49709-8c2d-43e4-924f-d9d9af9247dd"],
Cell[5138, 156, 3280, 88, 219, "Input",ExpressionUUID->"e393c11e-b12a-4e2a-868a-e73888241665"],
Cell[8421, 246, 1231, 32, 105, "Input",ExpressionUUID->"6381e3aa-29d3-44dc-99ff-6b1e9b017bd6"],
Cell[9655, 280, 332, 7, 48, "Input",ExpressionUUID->"fbf21c9d-ad61-402c-9aca-539ca1eb0be1"],
Cell[CellGroupData[{
Cell[10012, 291, 257, 5, 28, "Input",ExpressionUUID->"f7813473-2814-4416-984a-9125143b9583"],
Cell[10272, 298, 320, 8, 32, "Output",ExpressionUUID->"6dd5d31a-2a83-45f3-a9b6-2c38cf5e7f1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10629, 311, 5223, 133, 352, "Input",ExpressionUUID->"f5f0cc6f-8133-4f9f-b7fd-3acb7de895df"],
Cell[15855, 446, 409, 7, 32, "Output",ExpressionUUID->"e2000f36-82b7-46c2-b101-5c92f67029a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16301, 458, 463, 12, 28, "Input",ExpressionUUID->"4368e20a-0d0a-4bc7-af54-abaf0f8e41f6"],
Cell[16767, 472, 455, 10, 24, "Message",ExpressionUUID->"6c042f6b-3547-4736-b703-614d765db28e"],
Cell[17225, 484, 455, 10, 24, "Message",ExpressionUUID->"b8a1bd7d-f497-4000-97bd-40bea3a94bc4"],
Cell[17683, 496, 457, 10, 24, "Message",ExpressionUUID->"b9041ef4-9609-4afa-a41e-4711af20d7e8"],
Cell[18143, 508, 455, 10, 24, "Message",ExpressionUUID->"b806d9c2-a024-418f-b514-c41e124d7df9"],
Cell[18601, 520, 269, 6, 32, "Output",ExpressionUUID->"36e0f2d2-6570-49c8-a60a-e78ac6d32ab6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18907, 531, 241, 5, 28, "Input",ExpressionUUID->"7c4afbf9-a8b0-43d7-8901-fdb7de805144"],
Cell[19151, 538, 274, 6, 32, "Output",ExpressionUUID->"f7fb47fd-0de2-4959-b4f1-c47d793ff125"]
}, Open  ]]
}
]
*)

